home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1996 April / Macworld (1996-04).dmg / Shareware World / Entertainment / General / Xconq 7.0.1 / lib / standard.g < prev    next >
Text File  |  1995-08-22  |  2KB  |  78 lines
  1. (game-module "standard"
  2.   (title "Standard Game")
  3.   (blurb "The standard Xconq game, loosely based on WW II ca 1945")
  4.   (instructions "Take over the world before you get taken over!")
  5.   (variants
  6.     (world-seen false)
  7.     (see-all false)
  8.     (world-size (60 30 360))
  9.     (sequential false)
  10.     ("Mostly Land" mostly-land
  11.       (true
  12.         ;; Adjust so that sea is 20% instead of 70% of the world.
  13.         (add sea alt-percentile-max 20)
  14.         (add shallows alt-percentile-min 20)
  15.         (add shallows alt-percentile-max 21)
  16.         (add swamp alt-percentile-min 21)
  17.         (add swamp alt-percentile-max 23)
  18.         (add (desert plains forest) alt-percentile-min 21)
  19.         ))
  20.     ("All Land" all-land
  21.       (true
  22.         ;; Adjust sea and shallows out of existence, let swamp take all the low spots.
  23.         (add sea alt-percentile-min 0)
  24.         (add sea alt-percentile-max 0)
  25.         (add shallows alt-percentile-min 0)
  26.         (add shallows alt-percentile-max 0)
  27.         (add swamp alt-percentile-min 0)
  28.         (add swamp alt-percentile-max 2)
  29.         (add swamp wet-percentile-min 0)
  30.         (add swamp wet-percentile-max 100)
  31.         (add (desert plains forest) alt-percentile-min 2)
  32.         ;; Counterproductive to try to set up near water.
  33.         (add sea country-terrain-min 0)
  34.         ))
  35.     ("Large Countries" large
  36.      (true
  37.        ;; This is the same as country separation.
  38.        (set country-radius-max 48)
  39.        ))
  40.     ("Test" test
  41.      (true
  42.        ;; For testing.
  43.        (set unseen-image-name "question")
  44.        (include "libimf")
  45.        ))
  46.     )
  47.   )
  48.  
  49. (include "stdunit")
  50.  
  51. (include "nat-names")
  52.  
  53. (include "town-names")
  54.  
  55. (add (* @) namer "random-town-names")
  56.  
  57. (set feature-types (("peak") ("lake")))
  58.  
  59. (include "ng-weird")
  60.  
  61. (namer generic-lake-names (grammar root 10
  62.   (root (or 5 (foo "Lake " generic-names)
  63.             1 (generic-names " Lake")
  64.             ))
  65.   (foo "")  ; works around a bug
  66.   ))
  67.  
  68. (set feature-namers (("lake" "generic-lake-names")))
  69.  
  70. (set advantage-min 1)
  71. (set advantage-default 1)
  72. (set advantage-max 5)
  73.  
  74. (scorekeeper
  75.   (title "")
  76.   (do last-side-wins)
  77.   )
  78.